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RDHOME 16-8 Sep p- 138% 9}: 32:13 VAX-11 Bliss-32 V4.0-742 1) 
14-Sep-1984 12:35:19 DISKSVMSMASTER: CINIT.SRCIRDHOME .B32; 429 ea 

H 1 001 MODULE RDHOME ( | 
; ¢ Oe LANGUAGE (BLISS 34). 
; 00 IDENT = 
: 4 004 de 
3 5 005 1 BEGIN 
; 8 O06 1 
3 0007 1! 
5 : 4 1; RITITITITISITIIIIIIITI IIIT IIIT ITLL LI TTITTiTTiiiliTiii tii ti titiiiiiii titi ii 
. ie aa j 
; 10 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 * 
3 11 0011 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
: ig Boi§ : - ALL RIGHTS RESERVED. * 
3 ! * 
: 14 0014 1 !* THIS thee! IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED ¥ 
3 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
5 16 0016 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 17 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
s \ 84 : * TRANSFERRED. ed 
Py .* oa 
3 st 8553 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 22 00 § 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $i Osi : ‘* CORPORATION. * 
: 'e * 
; 25 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR 7 etpaaechlel OF ITS * 
3 26 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL * 
. ae 0027 1 !« * 
; 0028 1 !* * 
by $3 94 1 RRR RERERE | 
; 0030 1 
3 3 0031 1 !++ 
3 32 0032 1! 
ae 0033 1 ! FACILITY: MOUNT Utility Structure Levels 1 & 2 
; 0034 1! 
3 35 0035 1! ABSTRACT 
; 4 te) 1 This routine reads the home block, if any, of the volume being mounted. 
3 38 0038 1 | ENVIRONMENT: 
3 39 0039 1! 
: 40 0040 1! STARLET operating system, including privileged system services 
>: «641 0041 1! and internal exec routines. 
; 42 0042 1: 
i & 0045 1 !-- 
7 «646 0044 1! 
s 65 0045 1! = 
$ $8 S43 ! : AUTHOR: Andrew C. Goldstein, CREATION DATE: 13-Oct-1977 21:29 
3 48 B28 1 ! MODIFIED BY: 
: 49 049 1! 
: 50 3 1! 
, 051 1! v02-004 STJ0002 Steven T. Jeffreys, ey -1980 
s 26 O08 - Liberal re-write to facilitate operator assisted mount. 
3 2 \ iP, As a result, the code indentation is screwed up. 
: e¢ $088 1! V02-003 ACG0167 Andrew C. Goldstein, 18-Apr-1980 13:39 
: 28 Boas : ie Previous revision history moved to MOUNT.REV 
bd ® 
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; 60 O 1 LIBRARY ‘SYSS$LIBRARY Li8,t5e ; 

: 2 1 : REQUIRE ‘SRCS$:INIDEF.B32'; 

: 6 0358 1 | 
3 64 54 1 FORWARD ROUTINE 

; 6 0355 1 READ _HOMEBLOCK, ' read the home block 

: 66 0356 1 SET_VALID ' set volume valid bit 

oar 0357 1 CLEAR_VALID; ! clear volume valid bit 
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16-Sep-1984 01:53:15 VAX-11 Bliss-32 

1e-8ep-19 4 03238518 DISKSVMSMASTER: 
GLOBAL ROUTINE READ_HOMEBLOCK (VOLUME_LABEL, FULL_SEARCH) = 


‘ee 
' 


i FUNCTIONAL DESCRIPTION: 


This routine reads the home block, if any, of the volume being mounted. 
Various statuses are returned to be interpreted in the context of the 
operation; errors that are clear losers are signalled. 


CALLING SEQUENCE: 
READ_HOMEBLOCK (ARG1, ARG2) 


INPUT PARAMETERS: 
ARG1: address of volume label string descriptor 
ARG2: 1 if search whole disk for home block 
if Limited search 


IMPLICIT INPUTS: 
CHANNEL: channel number assigned to device being mounted 


! OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
HOME BLOCK: buffer contains home block if found 
HOMEBLOCK_LBN: LBN of home block read 


ROUTINE VALUE: 
1 if valid and correct home block found 
SS$_NOHOMEBLK if home block not found 
SS$_INCVOLLABEL if home block found but wrong volume name 
SS$_DEVOFFLINE 


SS$_MEDOFL 
SS$_FILESTRUCT 
SIDE EFFECTS 
NONE 
BEGIN 
MAP 
VOLUME _LABEL : REF VECTOR; ! volume label string descriptor 
LOCAL 
STATUS ' system service status 
10_STATUS : VECTOR(2], | 1/0 status block 
TA ! home block search delta 
BLOCKFACT, i device blocking factor 
LBN; ' current LBN being tried 
EXTERNAL 


channel number for 1/0 | 
disk device characteristics 


CHANNEL 
DEVICE_CHAR : BBLOCK, 


Pp 
IRDHOME.B32:1. "(2 
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be 12:35:19 


VAX-11 Bliss-32 V4.0-742 


14-Sep-1 DISKSVMSMASTER: CINIT.SRCIRDHOME .B32; 
cS $ 415 DEVCHAR_DESC : VECTOR, ! device characteristics descriptor 
> % £18 HOME BLOCK : BBLOCK, ' home block buffer 
> 128 41 HOMEBLOCK_LBN, ' LBN of home block read 
; 129 rt CTLSGL_PHB : REF BBLOCK ADDRESSING_MODE (ABSOLUTE); 
3 ; , 138 ! pointer to process header 
.y § 421 EXTERNAL ROUTINE ; 
3; 1 4 § READ BLOCK ! read a disk block 
> 134 4 HECR_HOMEBLK1, i verify structure Level 1 home block | 
: ; 5 r ¢ CHECK_HOMEBLK2; ! verify structure level 2 home block 
> «137 4 § 
; 138 4 
; iW 428 ! Issue a pack acknowlege so we can talk to the disk. $C 
: 140 0429 ' Inhibit error Logging to avoid saturating the error log 
3; «(141 0430 ! with media/device offline errors. These errors cause 
3 136 ott us to return and try an operator assisted mount. 
3 (1446 Se3$ 
3; 6165 P 0434 STATUS = $Q]0W (CHAN = .CHANNEL, 
; 146 P 0435 FUNC = (I1O$_PACKACK OR IOSM_INHERLOG), 
> «147 ok 10SB = IO_STATUS(O)); 
3 «6148 0437 IF .STATUS THEN STATUS = ~(10_STATUSLOJ)<0, 16>; 
3: «149 0438 2 IF NOT .STATUS 
; 150 0439 THEN 
3 13) 0440 ' 
: 136 0441 ! Allow ILLIOFUNC errors, as devices that have 
; 137 Ree no PACKACK function will return this status. 
; «6155 0444 IF .STATUS NEQ SS$_ILLIOFUNC 
; 156 0445 THEN } 
; 137 0446 ERR_EXIT (.STATUS); 
: 158 0447 : 
: «159 0448 2 ! Set the volume valid bit to indicate presence of a volume. 
; 160 0449 ! 
: 161 0450 | 
; ioe ott KERNEL_CALL (SET_VALID); 
; 164 0285 ! Re-read the device characteristics. (For some devices, packack causes the | 
3 193 Bee correct characteristics to be determined and recorded in the 1/0 data base.) 
; 167 3628 
; 128 Be? SGETCHN (CHAN = .CHANNEL, PRIBUF = DEVCHAR_DESC); 
3 196 b089 ! Compute the home block search delta from the volume geometry in the 
3; 171 0460 ! device table. This is done according to the following rules, where volume 
3 76 Bees geometry is expressed in the order sectors, tracks, cylinders: 
3; «174 046 ! nx ix: 1 
s 175 0464 ! Txnx i: 1 
: 176 0465 ! 1x1 xn: 1 
Ba is R608 : 
; 178 46 : nxmxi: n+1 
; 179 46 : nx ix am: n+1 
: 180 4. ! Tx nx m: n+1 
: «181 470 : 
: 182 0471 ! sx t xc: (t+1)*s¢41 
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-DEVICE_CHAR DIBSB_SECTORS] 
* .DEVICE-CHARCDIBSB-TRACKS 
* .DEVICE-CHARLDIBSW-CYLINDERS)) 
/ .DEVICE-CHARCDIBSL-MAXBLOCK); 
DELTA = 1; 
F -DEVICE_CHAREDIBSW_ CYLINDERS] GTR 1 
AND .DEVICE-CHARCDIBSB-TRACKS) GTR 
HEN DELTA = .DELTA + 7DEVICE_CHARCDIBS$B_TRACKS); 
IF .DEVICE_CHARCDIB$B SECTORS] GTR 1 
AND (.DEVICE CHARCDIBSQ_ CYLINDERS] GTR 1 
OR .DEVICE_CRARCDIB$B_TRACKS] GTR 1) 
THEN DELTA™= (.DELTA * .DEVICE_CHARCDIBS$B_SECTORS] + .BLOCKFACT) / .BLOCKFACT; 
.DELTA EQL 0 
DELTA GTRU .DEVICE_CHARCDIBSL_MAXBLOCK] / 10 


OR . 
THEN DELTA = 1; 


! Search for the home block. If the device is being mounted foreign, we 

me. If the device is 
! being mounted Files-11 then we try all the way just in case the home block 
! is in a weird location. Note the potential protection hole: Disks with the 
! home block far into the disk are not protected from being mounted foreign 
! by non-privileged users. C'est la vie. 


$y J FROM (CIF .FULL_ SEARCH THEN -1 ELSE 10) TO 1 DO 


STATUS = READ_BLOCK (.LBN, HOME_BLOCK); 
1F STATUS 


BEGIN 
If .HOME_BLOCKCHM2$B_STRUCLEV] EQL 1 

THEN STATUS = CHECK_ROMEBLK1 (HOME_BLOCK, .LBN, .VOLUME_LABEL) 
ELSE IF .HOME_BLOCKCHM2$B STRUCLEV] EQL 

THEN STATUS = CHECK_HOMEBCK2 (HOME_BLOCK, .LBN, .VOLUME_LABEL) 
ELSE STATUS = 0; 


» STATUS 
OR .STATUS EQL SS$_INCVOLLABEL 
- EXITLOOP 0; 


ELSE 


IF _.STATUS EQL SS$_ILLBLKNUM 
THEN EXITLOOP -1; 

IF STATUS NEQ SS$_PARITY 
AND .STATUS NEQ SS$~FORMAT 
AND .STATUS NEQ SS$S~DATACHECK 
THEN ERR_EXIT (.STATUS); 


° 
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3 
Sep =1384 } 33:13 VAX=11 Bliss-32 V4.0-742 
“Sep 2: DISKSVMSMASTER:CINIT.SRCIRDHOME .B32; 39 © 2 


ieee 


; 240 529 4 If Nor -FULL_SEARC 

> 241 530 4 -BBLOCK a po cpupea _PRIVMSK], PRVS$V_VOLPROJ 

3 ? 2 1 : THEN RETURN (SS$_NOROME 

: 265 4 4 END 

3 ré 535 

: 4 5 $ THE 

; 248 5 BEGIN 
: 269 538 READ BLOCK (1, HOME_BLOCK); 

; 250 0539 RETURN (SS$_NOHOMEBLK) ; | 
: $2) $39 a: | 
: 238 0542 2 HOMEBLOCK_LBN = .LBN; | 
3 54 054 

; 255 0544 2 RETURN .STATUS; 

; 256 0545 2 

; 257 0546 1 END; ! end of routine READ_HOMEBLK 


TIT RDHOME 

IDENT \V04-000\ 

XTRN CHANNEL, DEVICE_CHAR 

XTRN DEVCHAR_DESC, HOME BLOCK 


-PSECT ScODES noun 2 


03FC 00000 .ENTRY READ_HOMEBLOCK, Save R2,R3.R4,R5,R6,R7,R8,- ; 0358 
59 000000006 00 9€ 90002 MOVAB LIBSSTOP R9 ; 
58 0000G CF 9E 00009 MOVAB BLOCK, R8 ; 
57 0000G CF S BOO MOV DEVITE. ChAR+l0, R7 3 
5E 08 C2 0001 SUBL ; | 
7E 7C 00016 CLRO a T5 : 0436 
7E 7C 00018 CLROQ _ = (SP) F 
7E 7C OOO1A CLRQ = (SP) ; 
7E 7C 0001C CLRQ = (SP) ; 
20 AE 9F OOOIE PUSHAB 10 STA : 
7E tt 8F 3C B08 1 MOVZWL #2056, -(SP) : 
00006 CF DD 00026 PUSHL CHANNEL ; 
7E D4 OO02A CLRL. = (SP) ; | 
000000006 09 g¢ FB 000 ¢ CALLS #12, SYS$Q10W ; 
5 9 DO 000 MOVL : 
06 5 t 0036 BLBC STATUS, 1$ : 0437 | 
5 : ¢ 0039 MOVZ2WL 10 STATUS, STATUS : 
0€ E8 0003C¢ BLBS STATUS, 2$ > 0438 
000000F4 BF 53 D1 OOOSF 1$: CMPL STATUS. #244 > 0444 
3 13 0046 BEQL ; 
DD 6 4 PUSHL STATUS > 0446 
69 1 FB OO04A CALLS #1, LIBSSTOP ; 
E D4 0 D 2$: CLRL = = (§P) > 0451 
5E 0D 4F PUSHL SP 3 


3 AX-11 Bliss-32 V4.0-742 ME .B32; fag * «25 
4 01:53:15 sv R:CINIT. SRCIRDHO | 
1enSep= 1984 12:38:19 DI SKSVMSMASTE 
ALID ; 
0o0ov fF 9F 00051 eyenee #8 BASYSSCHKRNL 0457) 
000000006 9F 03 7¢ 09 ¢ FUSHAB DEVCHAR_DESC | 
soooe ff Be Ramee =| SAL RI donk 
64 TCHN + 0474 | 
“ee RUE, He tiasctOm og ss 
wae | FF AY 9a 00078 COVERL DEVI LECHARSD, RI ; 0476 
50 : a 2 a0rt MOVIL DEVICE “CHAR®10, R4 047 | 
Vee Reet) Bog: meee ie 
33 66 Ot 50 boos MOVE” Rie DELTA ; 0480 
54 5 9 D4 00089 pas ee vice _CHAR+10, #1 : 
67 81 00088 a) 
01 OA 1B QOO8E od RS + 0481 
55 D6 0009 neh ORT at Pas 
51 91 0009 BLEQU 3S 3 Obs 
x BF 18 Mee ADDL2 1, DELTA ; 048 
51 cO 00097 MPR RO. #1 : 
a 30 91 Q009A 38: CMPB RO ; 0485 
01 12 1B 0009D pLecu 3F  OaBe 
$5 EB 0009 1 ee aw 
0 31 91 000K2 ee a" ; 048 
" 32 Ce OOOA? 4S: MULL? BELT Peart. nO : 
28 3t EO OOOAA st BLOCKFACT. RO, DELTA : 0489 
20 54 C7 QOOAD PivLS  BLOt 
52 30 52 DS 00081 58: Ist : : 0490 
BA 1s Sues DIVL3 #10, DEVICE_CHAR#112, R 
OA C7 90085 CMPL DELTA, RO oe 
45 ee 03 te coos Bledu 7S : 0801 
Ot D0 OOOBr $$: move ate tee : 0504 
22 et RS 
Re 08 AC €9 000C GL owt, RS 3 
92 01 CE a90¢9 NNEGL 1, 
35 03 11 000CC BOVL #10, RS i 0529 
55 Re be OOODT 98: ACORL FULL SEARCH, Ré : 0933 
” 0086 $1 00003 PUSHR  #ERCR4 RB : 
0110 BF BB 00008 108: © PUSHR AK READ BLOCK pe 
00006 ¢F 85 BB oo0rs BLA STATUS 188 : 0510 
%6 AB 9% OOOE? CMPB = HOME _BLOCK+13, #1 pit: 
01 0D OE te OOOEB PUSHL VOLUME, LABEL | 
A PUSHL =o ° 
FO 
$5 bb abre CALLS #3, CHECK HOMEBLK1 ad! 
‘ i 0089 BRB CK+13, #2 : 
A 91 Bare 118: ee nose BLO . > 0513 | 
11 te Ooorr PUSHL VOLUME _LABEL 
AC 00 90101 LBN 
54 DD 00104 


; Routine Size: 381 bytes, Routine Base: S$CODE$S + 0000 


Re | 

hes Sep 1984 O}: 53:15 VAX-11 Bliss-32 V4.0-742 8 | 

14-Sep DISKSVMSMASTER:CINIT.SRCIRDHOME .B32; fag * (2), 

58 DD 001 PUSHL : | 

00006 cf 0 F a § CALLS ie CHECK_HOMEBLK2 ; | 

3 D 10D 12% MOVL RO, STATUS : | 
1 11 BRB 14§ : 

D4 00112 13$ CLRL = STATUS + 0514 

50 E8 00114 14$ BLBS STATUS, 21$ + 0515 

0000010c = BF D1 00117 CMPL STATUS, #268 + 0516 
if 1 BNEQ 16$ : 

11 001 BRB 21$ : 0517 

000000Dc_ ~—s BF D1 00122 15$ CMPL STATUS, #220 : 0521 
A 13 001 BEQL 19$ : 

000001F4  8F 3 pj 1 B CMPL = STATUS, #500 + 0523 
1 1 BEQL 16$ : 

0000008C = BF 53 Di 00134 CMPL STATUS, #188 + 0524 
OF 13 o1 B BEQL ©«-'16$ : 

0000005C 8F D1 0013p CMPL = STATUS, #92 + 0525 
03 13 00144 BEQL 16$ ; 

dD 146 PUSHL STATUS + 0526 
69 4 FB 8 14 CALLS #1, LIBSSTOP 3 

0B 6 £9 00148 16$: BLBC 6. + 0529 

50 000000006 9F DO 00146 MOVL an CTLSGL PHD, RO : 0530 
15 60 15 £0 0015 BBS (ROD. 26$ ; 

54 3 CO 00159 17$:  ADDL2 DELIA, + 0533 

55 D7 0015C DECL + 0504 
54 D3 00156 18%: TSTL , ; 
03 13 00160 BEQL 19$ : 
FF73 31 00162 BRW 10$ : 

5B DD 00165 19$:  PUSHL RB : 0538 
01 DD 00167 PUSHL #1 ; 
00006 CF 02 FB 00169 CALLS #2, READ BLOCK : 

50 O8EO BF 3¢ 00165 20$: MOV UL #2072, RO : 0539 

00006 CF 54 00 00174 21$: | MOVL —LBN, HOMEBLOCK_LBN > 0542 

50 53 DO 00179 MOVL STATUS, RO : 0544 

04 0017C RET > 0546 


3 
1b-se -1984 01:53:15 VAX-11 Bliss- Pa 9 
1ereee- 1382 P58ei13 | HAR a Rlese JRDHOME.B32;1° 9 (3). 


32 V4.0-7 
R:CINIT.S 


4.0-742 
NIT.SRC 


59 47 GLOBAL ROUTINE SET_VALID = 

60 rt 

61 4 lee 

6 229 : 

o7 2 1 FUNCTIONAL DESCRIPTION: 

65 2 § This routine sets the volume valid bit in the UCB, causing 
e 22? status transition. 

68 228 


wr 


: Get the UCB address from the channel and set the bit. 
UCB = GET_CHANNELUCB (.CHANNEL); 

UCBCUCB$V_VALIDJ = 1; 

RETURN 1; 
END; ! end of routine SET_VALID 


SaeeSrences 


; 1 | 
3 1 

s 1 
$ 1! 
; 1! 
3 : | 
: ! } PACKACK to be reissued in case of a power failure or volume 

: 1 i 

; 269 5 1! 

H 70 2 1 ! CALLING SEQUENCE: 

: 271 1 | SET_VALID () 

3; ef 560 1! 

: 7 561 1 ! INPUT PARAMETERS: 

; 74 b26¢ 1! NONE 

: 275 0563 1! 

; 76 0564 1 =! IMPLICIT INPUTS: 

3 a beee : CHANNEL: channel number assigned to device 

3 sf8 0567 1 ! OUTPUT PARAMETERS: 

; 280 0568 1! NONE 

: 281 0569 1! 

3 seg 0570 1! IMPLICIT OUTPUTS: 

3 ee 0571 1! NONE 

; 284 0378 1! 

: 285 057 1 ! ROUTINE VALUE: 

> 286 0574 1! 1 

; 27 0575 1! 

; 288 0576 1! SIDE EFFECTS: . 

; 289 0577 1! valid bit set in UCB 

; 290 0578 1! 

; 291 0579 1 !-- 

3 $36 0580 1 

:; 2 0581 3 BEGIN 

: 294 b2a6 

: 295 058 § LOCAL ; 

; 296 0584 : REF BBLOCK; ! pointer to UCB 

; $30 0585 § 

; 298 0586 EXTERNAL : 

; 5 ooee 2 CHANNEL ; ! channel assigned to device 

; 0 $ EXTERNAL ROUTINE 

; 8 GET_CHANNELUCB; ! get UCB of channel 

3 0 

3 0 

: 

: : | 


SOOOOOOOOO 90M 
—OOONOUS WOO 


oe 


; Routine Size: 


19 bytes, 


Routine Base: 


1986 92:35:13 DESSUngMaSteRsc ivi 


1f bse 
eo- 
1 £7 98- 


0000 00000 

0000G CF DD 00002 
01 FB 00006 

08 88 00008 

01 00 Q000F 

04 00012 


SCODES + 017D 


-EXTRN GET_CHANNELUCB 
-ENTRY SET VALID, Save nothing 
SAA HANN 


CALLS + OF! CHANNELUCB 
BISB2 ns: 101TUCB) 


p 
REIRDHOME .B32;1°%" 
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1984 01:53:15 VAX=11 Bliss=32 V4.0-742 Pa 11 
1982 9:38:19 DISKSVMSMASTER:CINIT.SRCIRDHOME .B32; 1 “i (4) 


| 
| 

; 315 $09 1 GLOBAL ROUTINE CLEAR_VALID = 

: 18 6 1 

: 1 4 1 l44 

; 318 605 1! 

3 19 one 1 ! FUNCTIONAL DESCRIPTION: 

; 320 be5 1! | 

3 1 set: : This routine clears the volume valid bit in the UCB. | 

3 g 0610 1! 

3 4 0611 1 ! CALLING SEQUENCE: 

; 5 0618 ; CLEAR_VALID () 

P4 5 Selz 1 ! INPUT PARAMETERS: 

3 8 0615 1! NONE 

3 y bei$ 1! 

3 0 617 1 ! IMPLICIT INPUTS: 

; 1 0618 1! CHANNEL: channel number assigned to device 

3 336 0619 1! 

: $3 bess 1 ! OUTPUT PARAMETERS: 

: 334 0621 1! NONE 

s 3395 06 ; 1! 

3 36 06 1 ! IMPLICIT OUTPUTS: 

s 357 0624 1! NONE 

3 $36 bes? 1! 

s 3? 0626 1 ! ROUTINE VALUE: 

; 340 0627 1! 1 

s 3461 0628 1! 

; 342 0629 1 ! SIDE EFFECTS: 

; 343 0630 1! valid bit clear in UCB 

3 «344 0631 1! 

; 345 b6e6 1 !-- 

3 $08 0635 1 

: 47 0634 2 BEGIN 

: 348 0635 § 

; 349 0636 2 LOCAL 

: 309 0637 2 : REF BBLOCK; ! pointer to UCB 

s 3551 0638 

3 $26 0639 EXTERNAL : 

: $27 eet § CHANNEL ; ! channel assigned to device 

g 326 ak: EXTERNAL ROUTINE 

3 «320 064 GET_CHANNELUCB; ! get UCB of channel 

335 bees 

; 59 646 ' Get the UCB address from the channel and clear tie bit. 

60 Reet ! 

. 361 648 

5 6¢ 649 UCB = GET_CHANNELUCB (.CHANNEL); 

; 36 650 UCBCUCB$V_VALIDJ = 0; 

: 364 651 

; 365 026 RETURN 1; 

s 566 65 

3; 367 0654 


| 
| 
END; ! end of routine CLEAR_VALID 
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COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:ROHOME/OBJ=OBJ$:RDHOME MSR 


Size 419 code + 0 data bytes 
Run Time: 713. 
Elapsed Time: 0:39.9 
Lines/CPU Min: 00 
Lexemes/CPU-Min: 25417 

ponacy Used 
Compila 


147 pages 
tion Complete 


C$: RDHOME /UPDATE=(ENHS: RDHOME ) 


3 | 
e VAX-11 Bliss-32 V4.0-742 e 12 
b-Sep- 1986 3:88:13 NaS cbUmBAASPERSCINI? che aRDHOME.03251°° ost 
0000 ENTRY CLEAR_VALID, Save nothing ; 0608 | 
F DD PUSHL CHANN ; 064 | 
ooyes CF 1 FB cobhs #i, § T_CHANNELUCB 5 
maa TRS Rage BLERE vce 8 
Be 00012 RET : ; ae3e 
; Routine Size: 19 bytes, Routine Base: $CODES + 0190 
68 655 
309 bese 1 
70 0657 0 ELUDON 
-EXTRN LIBSSTOP 
PSECT SUMMARY 
Name Bytes Attributes 
SCODES 419 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
cocecece Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
.$255$DUA28: CSYSLIBILIB.L32;1 18619 24 0 1000 00:01.9 
| 
} 
| 
| 
| 
| 
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